home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u1.d64 / header.proc < prev    next >
Text File  |  2007-02-28  |  690b  |  27 lines
  1. 9000 //DELETE "0:HEADER9
  2. 9010 //  BY KEVIN QUIGGLE
  3. 9020 //LIST   "@0:HEADER.PROC"
  4. 9030 //SETS UP HEADER FOR NEW PROGRAM:
  5. 9040 //  JUST CHAIN"HEAD*
  6. 9050 //
  7. 9060 DIM NAME$ OF 16
  8. 9070 PRINT CHR$(147) //CLEAR SCREEN
  9. 9080 INPUT "PROGRAM NAME? ": NAME$
  10. 9090 FOR I:=1 TO 3 DO PRINT CHR$(17) //CURSOR DOWN
  11. 9100 PRINT 
  12. 9110 PRINT "DEL 50-"
  13. 9120 PRINT 
  14. 9130 PRINT "0010 //DELETE ",CHR$(34),"0:",NAME$
  15. 9140 PRINT "0020 //  BY KEVIN QUIGGLE"
  16. 9150 PRINT "0030 //SAVE   ",CHR$(34),"0:",NAME$
  17. 9160 PRINT "0040 //"
  18. 9170 PRINT "AUTO 50"
  19. 9180 FOR I:=1 TO 10 DO PRINT CHR$(145), //CURSOR UP
  20. 9190 POKE 198,6
  21. 9200 POKE 631,13
  22. 9210 POKE 632,13
  23. 9220 POKE 633,13
  24. 9230 POKE 634,13
  25. 9240 POKE 635,13
  26. 9250 POKE 636,13
  27.